#!/usr/bin/env tclsh8.3
load ./DEF.so DEF
puts "DEF loaded OK!"
proc netf {t net ud} {
   global defrNetCbkType
   if {$t==$defrNetCbkType} {puts -nonewline "This is a defrNetCbkType"}
   puts "Net=[$net name]"
   return 0
}  

defrSetNetCbk netf
defrRead complete.5.2.def
